perm filename DECOMP.SNO[T,LCS] blob sn#017501 filedate 1972-12-18 generic text, type T, neo UTF8
00010		LETTERS = 'ABCEFGHIJKLMNOPQRSTUVWXYZ'
00100	LOOP	STR = TRIM(INPUT)		:F(END)
00200		STR BREAK('+-') ('+' ! '-') SPAN('01234567') '/' = ''	:S(FOO)
00300		STR FENCE SPAN('01234567') . BAZ '/' = '	'	:F(ZAP)
00310		STR = STR '	;' BAZ
00400	ZAP	STR BREAK('/') . BAZ  '/' = BAZ ':'	:S(FOO)
00500		STR = ";" STR
00510	FOO	STR SPAN(LETTERS) . BAZ '&' = 			:S(FOO)
00600		OUTPUT = STR					:(LOOP)
00700	END